﻿<AttributeUsage(AttributeTargets.Class, AllowMultiple:=True, Inherited:=False)>
Public Class IsSentinelImplAttribute
    Inherits Attribute

    Public SentinelType As Type

    Public Sub New(ByVal sentinelType As Type)
        Dim typeName = sentinelType.FullName
        If Not sentinelType.IsInterface Then
            Trace.Fail(String.Format("{0} is not an interface", typeName))
        End If

        Me.SentinelType = sentinelType
    End Sub

End Class
